home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATHEMAT / STATISTI / 0850D.ZIP / SET4.ARC / RANDOM.PAS < prev    next >
Pascal/Delphi Source File  |  1979-12-31  |  1KB  |  52 lines
  1. VAR TEMP2,SWITCH4,NUMSAMPS,I,J,SEED:INTEGER;
  2.     NUMSAMPS2,TEMP:REAL;
  3.     C,SWITCH3:CHAR;
  4.     SWITCH2:BOOLEAN;
  5.  
  6. BEGIN
  7. WRITELN ('RANDOM NUMBER GENERATOR');
  8. WRITE ('DO YOU WANT A PRINTOUT (Y/N)');
  9. READLN (SWITCH3);
  10. IF SWITCH3='Y' THEN SWITCH4:=1;
  11. IF SWITCH3='y' THEN SWITCH4:=1;
  12. IF SWITCH4=1 THEN BEGIN
  13. WRITELN (LST,'RANDOM NUMBER GENERATOR');
  14. END;
  15. WRITE ('RANDOM NUMBERS FROM 1 TO X WILL BE GENERATED, ENTER X = ');
  16. READLN (SEED);
  17. WRITE ('HOW MANY RANDOM NUMBERS DO YOU WISH GENERATED = ');
  18. READLN (NUMSAMPS);
  19. IF SWITCH4=1 THEN BEGIN
  20. WRITELN (LST,'RANDOM NUMBERS FROM 1 TO X WILL BE GENERATED, ENTER X = ',SEED);
  21. WRITELN (LST,'HOW MANY RANDOM NUMBERS DO YOU WISH GENERATED = ',NUMSAMPS);
  22. END;
  23. NUMSAMPS2:=NUMSAMPS/10;
  24. TEMP:=FRAC(NUMSAMPS2);
  25. TEMP:=10*TEMP;
  26. NUMSAMPS:=ROUND(NUMSAMPS2);
  27. FOR I:=1 TO NUMSAMPS DO
  28. BEGIN
  29. WRITELN;
  30. WRITELN (LST);
  31. FOR J:=1 TO 10 DO
  32. BEGIN
  33. TEMP2:=RANDOM(SEED);
  34. WRITE ((TEMP2+1):4,' ');
  35. IF SWITCH4=1 THEN BEGIN
  36. WRITE (LST,(TEMP2+1):4,' ');
  37. END;
  38. END;
  39. END;
  40. NUMSAMPS:=ROUND(TEMP);
  41. WRITELN;
  42. WRITELN (LST);
  43. FOR I:=1 TO NUMSAMPS DO
  44. BEGIN
  45. TEMP2:=RANDOM(SEED);
  46. WRITE ((TEMP2+1):4,' ');
  47. IF SWITCH4=1 THEN BEGIN
  48. WRITE (LST,(TEMP2+1):4,' ');
  49. END;
  50. END;
  51. END.
  52.